Creative Review 28/Creative-Review-CD-ROM-28.iso/pc/kungfu/assets/game.dir/00052_Script_stars class

Text File | 1997-08-08 | 1KB | 69 lines

-- stars class method
-- --------------------------------------------------

property state
property ancestor

-- ==================================================
-- new method
-- --------------------------------------------------
on new me, props

  minit me, props
  return me

end mnew

-- ==================================================
-- minit method
-- --------------------------------------------------
on minit me, props

  --  put "in minit stars"

  set props = [:]

  set animdata = data2list ( "star anim data" )

  setaprop props, #animdata , animdata

  setaprop props, #drawdata , [ #channel: 19 ]
  set ancestor = new ( script "anim manager class" , props )

  --  put "in minit stars"

end minit

-- ==================================================
-- mstart method
-- --------------------------------------------------
on mstart me, which, theloc

  --  put "in mstart stars", which, theloc

  if ( state = true ) then mabort ( ancestor )

  set state = true
  msetanim me, which, me
  msetloc me, theloc

  --  put "out mstart stars"

end mstart

-- ==================================================
-- manimfinish method
-- --------------------------------------------------
on manimfinish me

  --  put "in manimfinish stars "

  set state = false
  mhide me

  --  put "out manimfinish stars "

end manimfinish